|
900
|
How can I prevent a link to end to a specified bar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowLinkBars := true
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 160
var_Chart:FirstVisibleDate := SToD("20050620")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Not-End-Linkable")
var_Items:AddBar(h,"Unknown",SToD("20050621"),SToD("20050628"),nil,nil)
var_Items:[ItemBar,h,"",exBarCanEndLink] := false
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050623"),SToD("20050627"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050627"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
899
|
How can I prevent a link to start from a specified bar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowLinkBars := true
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 160
var_Chart:FirstVisibleDate := SToD("20050620")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Not-Start-Linkable")
var_Items:AddBar(h,"Unknown",SToD("20050621"),SToD("20050628"),nil,nil)
var_Items:[ItemBar,h,"",exBarCanStartLink] := false
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050623"),SToD("20050627"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050627"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
898
|
How can I prevent a specified bar to be linked
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowLinkBars := true
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 160
var_Chart:FirstVisibleDate := SToD("20050620")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Not-Linkable")
var_Items:AddBar(h,"Unknown",SToD("20050621"),SToD("20050628"),nil,nil)
var_Items:[ItemBar,h,"",exBarCanBeLinked] := false
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050623"),SToD("20050627"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050627"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
897
|
How can I display in the chart's header only days where the week starts
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20090131")
var_Chart:LevelCount := 2
var_Chart:FirstWeekDay := exMonday
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%mmmm%> <%yyyy%>"
var_Level:Alignment := CenterAlignment
var_Level:Unit := exMonth
var_Level1 := var_Chart:[Level,1]
var_Level1:Unit := exDay
var_Level1:FormatLabel := " (0:=weekday(dvalue)) = 1 ? '<b>' +value : '' "
var_Chart:UnitWidth := 23
|
|
896
|
Is there any automatically way to display and change the bar's duration in the columns section
local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
var_Column := IColumn{var_Columns:Add("Duration")}
var_Column:[Def,exCellValueToItemBarProperty] := 513
var_Column:Editor:EditType := SpinType
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20090101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20090102"),SToD("20090107"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20090104"),SToD("20090109"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
895
|
How can I programatically move or resize a bar using spin or slider controls in the columns
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
var_Column := IColumn{var_Columns:Add("Start")}
var_Column:[Def,exCellValueToItemBarProperty] := 1
var_Column:Editor:EditType := SpinType
var_Column1 := IColumn{var_Columns:Add("End")}
var_Column1:[Def,exCellValueToItemBarProperty] := 2
var_Column1:Editor:EditType := SpinType
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:ShowEmptyBars := 1
var_Chart:FirstVisibleDate := SToD("20090101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20090102"),SToD("20090107"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20090104"),SToD("20090109"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
894
|
I am trying to call the ItemBar(exBarStart) after curent ending point, and the bar is not updated. What I am doing wrong
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 64
var_Chart:FirstVisibleDate := SToD("20050621")
var_Chart:ShowEmptyBars := 1
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Test")
var_Items:AddBar(h,"Task",SToD("20050622"),SToD("20050626"),"",nil)
var_Items:AddBar(h,"Task",SToD("20050627"),var_Items:[ItemBar,h,"",exBarEnd],nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
893
|
How can change in the same time the starting and ending points of the bar
local var_Chart as IChart
local var_Items,var_Items1 as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 64
var_Chart:FirstVisibleDate := SToD("20050621")
var_Chart:ShowEmptyBars := 1
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Test")
var_Items:AddBar(h,"Task",SToD("20050622"),SToD("20050626"),nil,nil)
var_Items1 := oDCOCX_Exontrol1:Items
h := var_Items1:FirstVisibleItem
var_Items1:AddBar(h,"Task",SToD("20050627"),SToD("20050629"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
892
|
How can I control the exBarEffort property of the bar using slider controls
local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h,h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
IColumn{oDCOCX_Exontrol1:Columns:Add("Tasks")}:AllowDragging := false
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Histogram")}
var_Column:AllowDragging := false
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Column:AllowSizing := false
var_Column:Width := 18
var_Column:LevelKey := 1
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Effort")}
var_Column1:LevelKey := 1
var_Column1:AllowDragging := false
var_Column1:AllowSizing := false
var_Column1:Width := 64
var_Column1:[Def,exCellValueToItemBarProperty] := 21
var_Editor := var_Column1:Editor
var_Editor:EditType := SliderType
var_Editor:[Option,exSliderWidth] := -100
var_Editor:[Option,exSliderMax] := 9
var_Editor:[Option,exSliderMin] := 1
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 3
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 160
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramView := 0x10000 | exHistogramNoGrouping | exHistogramRecLeafItems | exHistogramLeafItems | exHistogramUnlockedItems | exHistogramCheckedItems
var_Chart:HistogramHeight := 64
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramCriticalColor := RGB(255,0,0)
var_Bar:HistogramPattern := exBezierCurve
var_Bar:HistogramType := exHistOverAllocation
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:AddBar(h,"Summary",SToD("20050621"),SToD("20050701"),nil,nil)
var_Items:[CellEditorVisible,h,2] := exEditorHidden
var_Items:[CellValue,h,2] := ""
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050628"),nil,nil)
var_Items:[CellMerge,h1,0] := 1
var_Items:DefineSummaryBars(h,"",h1,"")
h1 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(h1,"Task",SToD("20050623"),SToD("20050701"),"",nil)
var_Items:[CellMerge,h1,0] := 1
var_Items:DefineSummaryBars(h,"",h1,"")
var_Items:[ItemBar,h1,"",exBarEffort] := 5
h1 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(h1,"Task",SToD("20050625"),SToD("20050627"),"",nil)
var_Items:[CellMerge,h1,0] := 1
var_Items:DefineSummaryBars(h,"",h1,"")
var_Items:[ExpandItem,h] := true
var_Items:[CellState,h,1] := 1
h := var_Items:AddItem("Project 2")
var_Items:AddBar(h,"Summary",SToD("20050307"),SToD("20050712"),nil,nil)
var_Items:[CellEditorVisible,h,2] := exEditorHidden
var_Items:[CellValue,h,2] := ""
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(h1,"Task",SToD("20050703"),SToD("20050708"),nil,nil)
var_Items:[CellMerge,h1,0] := 1
var_Items:DefineSummaryBars(h,"",h1,"")
h1 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(h1,"Task",SToD("20050705"),SToD("20050712"),"",nil)
var_Items:[CellMerge,h1,0] := 1
var_Items:DefineSummaryBars(h,"",h1,"")
var_Items:[ItemBar,h1,"",exBarEffort] := 5
h1 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(h1,"Task",SToD("20050707"),SToD("20050708"),"",nil)
var_Items:[CellMerge,h1,0] := 1
var_Items:DefineSummaryBars(h,"",h1,"")
var_Items:[ExpandItem,h] := true
var_Items:[CellState,h,1] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
891
|
How can I determine if there is any Redo operation
local var_Chart as IChart
local var_Items as IItems
local var_CanRedo as USUAL
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowUndoRedo := true
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
var_CanRedo := oDCOCX_Exontrol1:Chart:CanRedo
|
|
890
|
How can I determine if there is any Undo operation
local var_Chart as IChart
local var_Items as IItems
local var_CanUndo as USUAL
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowUndoRedo := true
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
var_CanUndo := oDCOCX_Exontrol1:Chart:CanUndo
|
|
889
|
How can I turn on the Undo/Redo feature
local var_Chart as IChart
local var_Items as IItems
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowUndoRedo := true
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
|
|
888
|
How can I disable resizing the histogram at runtime
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:OnResizeControl := exDisableHistogram
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 32
var_Chart:Bars:[Item,"Task"]:HistogramPattern := exPatternBDiagonal
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010107"),nil,nil)
|
|
887
|
How can I display automatically the start and end dates of the bars in the columns section
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
var_Column := IColumn{var_Columns:Add("Start")}
var_Column:[Def,exCellValueToItemBarProperty] := 1
var_Column:Editor:EditType := DateType
var_Column1 := IColumn{var_Columns:Add("End")}
var_Column1:[Def,exCellValueToItemBarProperty] := 2
var_Column1:Editor:EditType := DateType
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:AllowLinkBars := true
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 196
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20060921"),SToD("20060924"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20060922"),SToD("20060925"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20060923"),SToD("20060926"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
886
|
How can I enable Undo/Redo support
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:DrawGridLines := exHLines
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
var_Column := IColumn{var_Columns:Add("Start")}
var_Column:[Def,exCellValueToItemBarProperty] := 1
var_Column:Editor:EditType := DateType
var_Column:LevelKey := 1
var_Column1 := IColumn{var_Columns:Add("End")}
var_Column1:[Def,exCellValueToItemBarProperty] := 2
var_Column1:Editor:EditType := DateType
var_Column1:LevelKey := 1
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawGridLines := exHLines
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:AllowLinkBars := true
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 196
var_Chart:AllowUndoRedo := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20060921"),SToD("20060924"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20060922"),SToD("20060925"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20060923"),SToD("20060926"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
885
|
Is there any option to update the bar's properties once the cell's value is changed ( associate the cell with bar )
local var_Chart as IChart
local var_Columns as IColumns
local var_Editor,var_Editor1 as IEditor
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
IColumn{var_Columns:Add("Start")}:Editor:EditType := DateType
IColumn{var_Columns:Add("End")}:Editor:EditType := DateType
var_Columns:Add("Info")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 224
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:InsertItem(nil,nil,"Task 1")
var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060923"),"A","Caption")
var_Items:[ItemBar,h1,"A",exBarHAlignCaption] := 18
var_Items:[CellEditor,h1,3]:EditType := EditType
var_Items:CellValueToItemBar(h1,1,exBarStart,"A")
var_Items:CellValueToItemBar(h1,2,exBarEnd,"A")
var_Items:CellValueToItemBar(h1,3,exBarCaption,"A")
h2 := var_Items:InsertItem(nil,nil,"Task 2")
var_Items:AddBar(h2,"Task",SToD("20060922"),SToD("20060924"),"B",nil)
var_Editor := var_Items:[CellEditor,h2,3]
var_Editor:EditType := SliderType
var_Editor:[Option,exSliderWidth] := -100
var_Items:CellValueToItemBar(h2,1,exBarStart,"B")
var_Items:CellValueToItemBar(h2,2,exBarEnd,"B")
var_Items:CellValueToItemBar(h2,3,exBarTransparent,"B")
h3 := var_Items:InsertItem(nil,nil,"Task 3")
var_Items:AddBar(h3,"Task",SToD("20060923"),SToD("20060925"),"C",nil)
var_Editor1 := var_Items:[CellEditor,h3,3]
var_Editor1:EditType := DropDownType
var_Editor1:AddItem(0,"Task",nil)
var_Editor1:AddItem(1,"Progress",nil)
var_Editor1:AddItem(2,"Project Summary",nil)
var_Editor1:AddItem(2,"Summary",nil)
var_Items:CellValueToItemBar(h3,1,exBarStart,"C")
var_Items:CellValueToItemBar(h3,2,exBarEnd,"C")
var_Items:CellValueToItemBar(h3,3,exBarName,"C")
oDCOCX_Exontrol1:EndUpdate()
|
|
884
|
Is there any option to update the bar's properties once the cell's value is changed ( associate the column/cell with bars )
local var_Chart as IChart
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Editor as IEditor
local var_Items as IItems
local h,h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:Indent := 11
oDCOCX_Exontrol1:HasLines := exSolidLine
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
var_Column := IColumn{var_Columns:Add("Start")}
var_Column:[Def,exCellValueToItemBarProperty] := 1
var_Column:Editor:EditType := DateType
var_Column:LevelKey := 1
var_Column1 := IColumn{var_Columns:Add("End")}
var_Column1:[Def,exCellValueToItemBarProperty] := 2
var_Column1:Editor:EditType := DateType
var_Column1:LevelKey := 1
var_Column2 := IColumn{var_Columns:Add("Transparency")}
var_Column2:[Def,exCellValueToItemBarProperty] := 19
var_Editor := var_Column2:Editor
var_Editor:EditType := SliderType
var_Editor:[Option,exSliderWidth] := -100
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 224
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
var_Items:AddBar(h,"Summary",SToD("20060921"),SToD("20061003"),nil,nil)
var_Items:[CellEditorVisible,h,1] := exEditorHidden
var_Items:[CellEditorVisible,h,2] := exEditorHidden
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060924"),nil,nil)
h2 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(h2,"Task",SToD("20060924"),SToD("20060928"),nil,nil)
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(h3,"Task",SToD("20060928"),SToD("20061003"),nil,nil)
var_Items:DefineSummaryBars(h,"",h1,"")
var_Items:DefineSummaryBars(h,"",h2,"")
var_Items:DefineSummaryBars(h,"",h3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
883
|
How can I group two bars so I can specify the range or the limit of the interval between them
local var_Chart as IChart
local var_Items as IItems
local h,h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:Columns:Add("Tasks")
IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}:Visible := false
IColumn{oDCOCX_Exontrol1:Columns:Add("End")}:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
var_Items:[CellValue,h,1] := SToD("20060921")
var_Items:[CellValue,h,2] := SToD("20061003")
var_Items:AddBar(h,"Summary",var_Items:[CellValue,h,1],var_Items:[CellValue,h,2],"sum",nil)
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:[CellValue,h1,1] := var_Items:[CellValue,h,1]
var_Items:[CellValue,h1,2] := SToD("20060924")
var_Items:AddBar(h1,"Task",var_Items:[CellValue,h1,1],var_Items:[CellValue,h1,2],"K1",nil)
h2 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:[CellValue,h2,1] := var_Items:[CellValue,h1,2]
var_Items:[CellValue,h2,2] := SToD("20060928")
var_Items:AddBar(h2,"Unknown",var_Items:[CellValue,h2,1],var_Items:[CellValue,h2,2],"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:[CellValue,h3,1] := var_Items:[CellValue,h2,2]
var_Items:[CellValue,h3,2] := var_Items:[CellValue,h,2]
var_Items:AddBar(h3,"Task",var_Items:[CellValue,h3,1],var_Items:[CellValue,h3,2],"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:GroupBars(h1,"K1",false,h2,"K2",true,31,"0;4")
var_Items:GroupBars(h2,"K2",false,h3,"K3",true,31,"0;2")
var_Items:DefineSummaryBars(h,"sum",h1,"K1")
var_Items:DefineSummaryBars(h,"sum",h2,"K2")
var_Items:DefineSummaryBars(h,"sum",h3,"K3")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
882
|
How can I group my bars so I can resize the interval between them but still keep the lengths of them
local var_Chart as IChart
local var_Items as IItems
local h,h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:Columns:Add("Tasks")
IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}:Visible := false
IColumn{oDCOCX_Exontrol1:Columns:Add("End")}:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
var_Items:[CellValue,h,1] := SToD("20060921")
var_Items:[CellValue,h,2] := SToD("20061003")
var_Items:AddBar(h,"Summary",var_Items:[CellValue,h,1],var_Items:[CellValue,h,2],nil,nil)
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:[CellValue,h1,1] := var_Items:[CellValue,h,1]
var_Items:[CellValue,h1,2] := SToD("20060924")
var_Items:AddBar(h1,"Task",var_Items:[CellValue,h1,1],var_Items:[CellValue,h1,2],nil,nil)
h2 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:[CellValue,h2,1] := var_Items:[CellValue,h1,2]
var_Items:[CellValue,h2,2] := SToD("20060928")
var_Items:AddBar(h2,"Unknown",var_Items:[CellValue,h2,1],var_Items:[CellValue,h2,2],nil,nil)
var_Items:AddLink("L1",h1,"",h2,"")
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:[CellValue,h3,1] := var_Items:[CellValue,h2,2]
var_Items:[CellValue,h3,2] := var_Items:[CellValue,h,2]
var_Items:AddBar(h3,"Task",var_Items:[CellValue,h3,1],var_Items:[CellValue,h3,2],nil,nil)
var_Items:AddLink("L2",h2,"",h3,"")
var_Items:GroupBars(h1,"",false,h2,"",true,35,nil)
var_Items:GroupBars(h2,"",false,h3,"",true,35,nil)
var_Items:DefineSummaryBars(h,"",h1,"")
var_Items:DefineSummaryBars(h,"",h2,"")
var_Items:DefineSummaryBars(h,"",h3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
881
|
Can I group my bars so they move together when a bar inside changes, but still preserving the length of the bars
local var_Chart as IChart
local var_Items as IItems
local h,h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:Columns:Add("Tasks")
IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}:Visible := false
IColumn{oDCOCX_Exontrol1:Columns:Add("End")}:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
var_Items:[CellValue,h,1] := SToD("20060921")
var_Items:[CellValue,h,2] := SToD("20061003")
var_Items:AddBar(h,"Summary",var_Items:[CellValue,h,1],var_Items:[CellValue,h,2],nil,nil)
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:[CellValue,h1,1] := var_Items:[CellValue,h,1]
var_Items:[CellValue,h1,2] := SToD("20060924")
var_Items:AddBar(h1,"Task",var_Items:[CellValue,h1,1],var_Items:[CellValue,h1,2],nil,nil)
h2 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:[CellValue,h2,1] := var_Items:[CellValue,h1,2]
var_Items:[CellValue,h2,2] := SToD("20060928")
var_Items:AddBar(h2,"Unknown",var_Items:[CellValue,h2,1],var_Items:[CellValue,h2,2],nil,nil)
var_Items:AddLink("L1",h1,"",h2,"")
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:[CellValue,h3,1] := var_Items:[CellValue,h2,2]
var_Items:[CellValue,h3,2] := var_Items:[CellValue,h,2]
var_Items:AddBar(h3,"Task",var_Items:[CellValue,h3,1],var_Items:[CellValue,h3,2],nil,nil)
var_Items:AddLink("L2",h2,"",h3,"")
var_Items:GroupBars(h1,"",false,h2,"",true,3,nil)
var_Items:GroupBars(h2,"",false,h3,"",true,3,nil)
var_Items:DefineSummaryBars(h,"",h1,"")
var_Items:DefineSummaryBars(h,"",h2,"")
var_Items:DefineSummaryBars(h,"",h3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
880
|
How can I split the time scale, so a section displays days, while other displays weeks, and the other months
local var_Chart as IChart
local var_InsideZoom,var_InsideZoom1 as IInsideZoom
local var_InsideZoomFormat,var_InsideZoomFormat1,var_InsideZoomFormat2 as IInsideZoomFormat
local var_InsideZooms as IInsideZooms
local var_Items as IItems
local var_Level,var_Level1,var_Level2 as ILevel
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:Columns:Add("Default")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawDateTicker := true
var_Chart:DrawGridLines := exVLines
var_Chart:NonworkingDays := 0
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20070101")
var_Chart:LevelCount := 3
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%yyyy%>"
var_Level:Unit := exYear
var_Level1 := var_Chart:[Level,1]
var_Level1:Alignment := CenterAlignment
var_Level1:Label := "<%hy%>"
var_Level1:Unit := exHalfYear
var_Level1:[ReplaceLabel,"1"] := "<b>1/2</b>"
var_Level1:[ReplaceLabel,"2"] := "<b>2/2</b>"
var_Level2 := var_Chart:[Level,2]
var_Level2:Label := "<%mmm%>"
var_Level2:Unit := exMonth
var_Chart:UnitWidth := 28
var_Chart:AllowInsideZoom := true
var_InsideZoomFormat := var_Chart:DefaultInsideZoomFormat
var_InsideZoomFormat:OwnerLabel := "<b><%mmmm%></b> (weeks) "
var_InsideZoomFormat:InsideLabel := "<font ;6>W: <b><%ww%></b>"
var_InsideZoomFormat:InsideUnit := exWeek
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:SplitBaseLevel := false
var_InsideZoom := var_InsideZooms:Add(SToD("20070101"))
var_InsideZoom:AllowCustomFormat := true
var_InsideZoomFormat1 := var_InsideZoom:CustomFormat
var_InsideZoomFormat1:OwnerLabel := "<b><%mmmm%></b> (weeks) "
var_InsideZoomFormat1:InsideLabel := "<font ;6>W: <b><%ww%></b>"
var_InsideZoomFormat1:InsideUnit := exWeek
var_InsideZoomFormat1:BackColorChart := RGB(187,231,240)
var_InsideZoom1 := var_InsideZooms:Add(SToD("20070301"))
var_InsideZoom1:AllowCustomFormat := true
var_InsideZoom1:Width := 356
var_InsideZoomFormat2 := var_InsideZoom1:CustomFormat
var_InsideZoomFormat2:OwnerLabel := "<b><%mmmm%></b> (days) "
var_InsideZoomFormat2:InsideLabel := "<font ;5><%d%></font>"
var_InsideZoomFormat2:InsideUnit := exDay
var_InsideZoomFormat2:BackColorChart := RGB(145,200,240)
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1 ")
var_Items:AddBar(h,"Task",SToD("20070112"),SToD("20070309"),nil,nil)
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20070125"),SToD("20070312"),nil,nil)
h := var_Items:AddItem("Task 3")
var_Items:AddBar(h,"Task",SToD("20070201"),SToD("20070208"),"B1",nil)
var_Items:AddBar(h,"Task",SToD("20070208"),SToD("20070215"),"B2",nil)
var_Items:AddBar(h,"Task",SToD("20070215"),SToD("20070222"),"B3",nil)
var_Items:AddBar(h,"Task",SToD("20070222"),SToD("20070228"),"B4",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
879
|
How can I define a bar that shows two colors, one up and one down, without using skin or EBN files
local var_Bar,var_Bar1 as IBar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bar := oDCOCX_Exontrol1:Chart:Bars:Add("A")
var_Bar:Color := RGB(255,0,0)
var_Bar:Shape := exShapeSolidUp
var_Bar:Pattern := exPatternSolid
var_Bar1 := oDCOCX_Exontrol1:Chart:Bars:Add("B")
var_Bar1:Color := RGB(128,0,0)
var_Bar1:Shape := exShapeSolidDown
var_Bar1:Pattern := exPatternSolid
oDCOCX_Exontrol1:Chart:Bars:Add("A%B"):Shortcut := "AB"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"AB",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarPercent] := 1
var_Items:[ItemBar,h,"K1",exBarCanResizePercent] := false
oDCOCX_Exontrol1:EndUpdate()
|
|
878
|
Does your control support RightToLeft property for RTL languages or right to left
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exDisableBoth
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("P1")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:RightToLeft := true
oDCOCX_Exontrol1:EndUpdate()
|
|
877
|
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exDisableBoth
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("C1")
var_Columns:Add("C2")
var_Columns:Add("C3")
var_Columns:Add("C4")
var_Columns:Add("C5")
var_Columns:Add("C6")
var_Columns:Add("C7")
var_Columns:Add("C8")
oDCOCX_Exontrol1:RightToLeft := true
oDCOCX_Exontrol1:EndUpdate()
|
|
876
|
Can I display the cell's check box after the text
local var_Column as IColumn
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:[Def,exCellDrawPartsOrder] := "caption,check"
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellHasCheckBox,var_Items:AddItem("Caption 1"),0] := true
var_Items:[CellHasCheckBox,var_Items:AddItem("Caption 2"),0] := true
|
|
875
|
Can I change the order of the parts in the cell, as checkbox after the text, and so on
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}:[Def,exCellDrawPartsOrder] := "caption,check,icon,icons,picture"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Text")
var_Items:[CellImage,h,0] := 1
var_Items:[CellHasCheckBox,h,0] := true
|
|
874
|
Can I have an image displayed after the text. Can I get that effect without using HTML content
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}:[Def,exCellDrawPartsOrder] := "caption,icon,check,icons,picture"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Text")
var_Items:[CellImage,h,0] := 1
|
|
873
|
My problem is that I want to mark the cells from every second item in the gant with a other backgroundcolor
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20080117")
var_Chart:LevelCount := 2
var_Chart:UnitScale := exSecond
var_Chart:[Level,1]:FormatLabel := "(0:=sec(dvalue)) mod 2 ? 0=: : '<bgcolor=00FF00>' + 0=:"
|
|
872
|
Is there any option to print the columns section on each page
local var_Print as IExPrint
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Col 1")
oDCOCX_Exontrol1:Columns:Add("Col 2")
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Col 1")
var_Items:[CellValue,h1,1] := "Col 2"
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Col 1")
var_Items:[CellValue,h2,1] := "Col 2"
var_Items:AddBar(h2,"Task",SToD("20010205"),SToD("20010207"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkStartPos] := 0
oDCOCX_Exontrol1:EndUpdate()
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:Options := "ColumnsOnEveryPage=-2"
var_Print:PrintExt := oDCOCX_Exontrol1
var_Print:Preview()
|
|
871
|
How can I add a different non-working area for different items
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Non-Work")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstWeekDay := exMonday
var_Chart:FirstVisibleDate := SToD("20080124")
var_Chart:[PaneWidth,false] := 52
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("January")
var_Items:[ItemNonworkingUnits,h,false] := "month(value) = 1"
h := var_Items:AddItem("February, Saturday, Sunday")
var_Items:[ItemNonworkingUnits,h,false] := "month(value) = 2 or (weekday(value) = 0 or weekday(value) = 6)"
h := var_Items:AddItem("Sunday")
var_Items:[ItemNonworkingUnits,h,false] := "weekday(value) = 0"
|
|
870
|
How can I define different non-working units for different items
local var_Bar as IBar
local var_Chart as IChart
local var_InsideZoomFormat as IInsideZoomFormat
local var_Items as IItems
local h,h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 78
var_Chart:AllowCreateBar := exCreateBarAuto
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:DrawLevelSeparator := exLevelNoLine
var_Chart:LevelCount := 3
var_Chart:[Level,1]:DrawGridLines := false
var_Chart:AllowInsideZoom := true
var_Chart:DrawDateTicker := true
var_Chart:DateTickerLabel := "<%mmm%> <%d%><br><b><%hh%>:<%nn%></b>"
var_Chart:MarkSelectDateColor := 0x7ffff8ee
var_InsideZoomFormat := var_Chart:DefaultInsideZoomFormat
var_InsideZoomFormat:OwnerLabel := "<%mmm%> <%d%>"
var_InsideZoomFormat:BackColor := RGB(238,248,255)
var_InsideZoomFormat:BackColorChart := var_InsideZoomFormat:BackColor
var_InsideZoomFormat:InsideCount := 4
var_InsideZoomFormat:InsideLabel := "<b><%hh%></b>"
var_Chart:InsideZooms:Add(SToD("20050622"))
var_Chart:DrawGridLines := exVLines
var_Chart:Bars:[Item,"Split"]:Color := RGB(255,0,0)
var_Bar := var_Chart:Bars:Add("Task:Split")
var_Bar:Color := RGB(255,0,0)
var_Bar:Pattern := exPatternBDiagonal
var_Bar:Shortcut := "TaskS"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:AddBar(h,"Summary",SToD("20050621"),SToD("20050701"),nil,nil)
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(h1,"TaskS",SToD("20050621"),SToD("20050628"),nil,nil)
var_Items:[ItemNonworkingUnits,h1,false] := "weekday(value)=1 or weekday(value)=2"
var_Items:[ItemNonworkingUnits,h1,true] := "weekday(value)=1 or weekday(value)=2 or (hour(value)<8 or hour(value)>=16 )"
var_Items:DefineSummaryBars(h,"",h1,"")
h1 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(h1,"TaskS",SToD("20050622 04:00:00"),SToD("20050701"),"E",nil)
var_Items:[ItemNonworkingUnits,h1,false] := "weekday(value)=0"
var_Items:[ItemNonworkingUnits,h1,true] := "weekday(value)=0 or hour(value)<4 or hour(value)>19"
var_Items:DefineSummaryBars(h,"",h1,"E")
var_Items:[ItemBar,h1,"E",exBarEffort] := 5
h1 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(h1,"TaskS",SToD("20050622 12:00:00"),SToD("20050627"),"E",nil)
var_Items:[ItemNonworkingUnits,h1,false] := "weekday(value)=1 or weekday(value)=2"
var_Items:[ItemNonworkingUnits,h1,true] := "weekday(value)=1 or weekday(value)=2 or (hour(value)<8 or hour(value)>=16 )"
var_Items:DefineSummaryBars(h,"",h1,"E")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Project 2")
var_Items:AddBar(h,"Summary",SToD("20050626"),SToD("20050706"),nil,nil)
h1 := var_Items:InsertItem(h,nil,"TaskS 1")
var_Items:AddBar(h1,"TaskS",SToD("20050626"),SToD("20050702"),nil,nil)
var_Items:DefineSummaryBars(h,"",h1,"")
h1 := var_Items:InsertItem(h,nil,"TaskS 2")
var_Items:AddBar(h1,"TaskS",SToD("20050628"),SToD("20050706"),"E",nil)
var_Items:DefineSummaryBars(h,"",h1,"E")
var_Items:[ItemBar,h1,"E",exBarEffort] := 5
h1 := var_Items:InsertItem(h,nil,"TaskS 3")
var_Items:AddBar(h1,"TaskS",SToD("20050630"),SToD("20050702"),"E",nil)
var_Items:DefineSummaryBars(h,"",h1,"E")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
869
|
I want to define/highlight for specified dates as being non-working. Is this possible
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local c,h,p as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Items")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:NonworkingDaysColor := RGB(255,0,0)
var_Chart:[PaneWidth,false] := 48
c := var_Chart:NonworkingDaysColor
p := var_Chart:NonworkingDaysPattern
var_Chart:FirstVisibleDate := SToD("20010101")
var_Bar := var_Chart:Bars:Add("NW")
var_Bar:Color := c
var_Bar:Pattern := p
var_Bar:Height := -1
var_Bar:Shape := exShapeSolidFrameless
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"NW",SToD("20010102"),SToD("20010103"),"0",nil)
var_Items:[ItemBar,h,"0",exBarSelectable] := false
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
h := var_Items:AddItem("Item 2")
var_Items:AddBar(h,"NW",SToD("20010102"),SToD("20010104"),"0",nil)
var_Items:[ItemBar,h,"0",exBarSelectable] := false
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
868
|
Do you have any sample how can I programmatically magnify a single date, so can show the hours, while the rest of the chart displays days
local var_Chart as IChart
local var_Column as IColumn
local var_InsideZoomFormat as IInsideZoomFormat
local var_Items as IItems
local h,h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("C")}
var_Column:HeaderAlignment := CenterAlignment
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Column:AllowSizing := false
var_Column:Width := 18
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 96
var_Chart:AllowCreateBar := exCreateBarAuto
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:DrawLevelSeparator := exLevelNoLine
var_Chart:LevelCount := 3
var_Chart:[Level,1]:DrawGridLines := false
var_Chart:AllowInsideZoom := true
var_Chart:DrawDateTicker := true
var_Chart:DateTickerLabel := "<%mmm%> <%d%><br><b><%hh%>:<%nn%></b>"
var_Chart:MarkSelectDateColor := 0x7ffff8ee
var_InsideZoomFormat := var_Chart:DefaultInsideZoomFormat
var_InsideZoomFormat:OwnerLabel := "<%mmm%> <%d%>"
var_InsideZoomFormat:BackColor := RGB(238,248,255)
var_InsideZoomFormat:BackColorChart := var_InsideZoomFormat:BackColor
var_InsideZoomFormat:InsideCount := 4
var_InsideZoomFormat:InsideLabel := "<b><%hh%></b>"
var_Chart:InsideZooms:Add(SToD("20050622"))
var_Chart:DrawGridLines := exVLines
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:AddBar(h,"Summary",SToD("20050621"),SToD("20050701"),nil,nil)
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(h1,"Task",SToD("20050621"),SToD("20050628"),nil,nil)
var_Items:[CellMerge,h1,0] := 1
var_Items:DefineSummaryBars(h,"",h1,"")
h1 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(h1,"Task",SToD("20050623"),SToD("20050701"),"E",nil)
var_Items:[CellMerge,h1,0] := 1
var_Items:DefineSummaryBars(h,"",h1,"E")
var_Items:[ItemBar,h1,"E",exBarEffort] := 5
h1 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(h1,"Task",SToD("20050625"),SToD("20050627"),"E",nil)
var_Items:[CellMerge,h1,0] := 1
var_Items:DefineSummaryBars(h,"",h1,"E")
var_Items:[ExpandItem,h] := true
var_Items:[CellState,h,1] := 1
h := var_Items:AddItem("Project 2")
var_Items:AddBar(h,"Summary",SToD("20050626"),SToD("20050706"),nil,nil)
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(h1,"Task",SToD("20050626"),SToD("20050702"),nil,nil)
var_Items:[CellMerge,h1,0] := 1
var_Items:DefineSummaryBars(h,"",h1,"")
h1 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(h1,"Task",SToD("20050628"),SToD("20050706"),"E",nil)
var_Items:[CellMerge,h1,0] := 1
var_Items:DefineSummaryBars(h,"",h1,"E")
var_Items:[ItemBar,h1,"E",exBarEffort] := 5
h1 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(h1,"Task",SToD("20050630"),SToD("20050702"),"E",nil)
var_Items:[CellMerge,h1,0] := 1
var_Items:DefineSummaryBars(h,"",h1,"E")
var_Items:[ExpandItem,h] := true
var_Items:[CellState,h,1] := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
867
|
How can I define my own/custom labels and subdivisions
local var_Chart as IChart
local var_Level,var_Level1,var_Level2 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:ToolTip := ""
var_Chart:[PaneWidth,false] := 0
var_Chart:[ScrollRange,exStartDate] := 0
var_Chart:[ScrollRange,exEndDate] := 110
var_Chart:FirstVisibleDate := 0
var_Chart:ShowNonworkingDates := false
var_Chart:MarkTodayColor := var_Chart:BackColor
var_Chart:LevelCount := 3
var_Level := var_Chart:[Level,0]
var_Level:ToolTip := ""
var_Level:Alignment := CenterAlignment
var_Level:Unit := exDay
var_Level:Count := 16
var_Level:FormatLabel := "'Group <b>'+int(1 +dvalue/16)"
var_Level1 := var_Chart:[Level,1]
var_Level1:ToolTip := ""
var_Level1:Alignment := CenterAlignment
var_Level1:Unit := exDay
var_Level1:Count := 4
var_Level1:FormatLabel := " (abs(dvalue)/4) mod 4"
var_Level1:[ReplaceLabel,"0"] := "Sub-Group <b>1</b>"
var_Level1:[ReplaceLabel,"1"] := "Sub-Group <b>2</b>"
var_Level1:[ReplaceLabel,"2"] := "Sub-Group <b>3</b>"
var_Level1:[ReplaceLabel,"3"] := "Sub-Group <b>4</b>"
var_Level2 := var_Chart:[Level,2]
var_Level2:ToolTip := ""
var_Level2:Unit := exDay
var_Level2:Count := 1
var_Level2:FormatLabel := "(abs(dvalue) mod 4)"
var_Level2:[ReplaceLabel,"0"] := "A"
var_Level2:[ReplaceLabel,"1"] := "B"
var_Level2:[ReplaceLabel,"2"] := "C"
var_Level2:[ReplaceLabel,"3"] := "D"
oDCOCX_Exontrol1:EndUpdate()
|
|
866
|
I want to mark or highlight the last Friday of the month. Is there any option to do that
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20080117")
var_Chart:LevelCount := 2
var_Chart:[Level,1]:FormatLabel := "(weekday(dvalue)=5 ? month(dvalue+7)!=month(dvalue) ? '<b><bgcolor=000000><fgcolor=FFFFFF>' ) + value"
|
|
865
|
I use the SelectDate method but the dates are not being highligted. What can I do
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:MarkTodayColor := var_Chart:BackColor
var_Chart:LevelCount := 2
var_Chart:SelectLevel := 1
var_Chart:[SelectDate,SToD("20080102")] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
864
|
Can I use ebn files to display the selected dates
local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(2,"c:\exontrol\images\normal.ebn")
var_Appearance:Add(1,"CP:2 0 -4 0 4")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:MarkTodayColor := var_Chart:BackColor
var_Chart:LevelCount := 2
var_Chart:MarkSelectDateColor := 0x1000000
var_Chart:SelectLevel := 1
var_Chart:[SelectDate,SToD("20080103")] := true
var_Chart:[SelectDate,SToD("20080104")] := true
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20080102"),SToD("20080106"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20080103"),SToD("20080107"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20080104"),SToD("20080108"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 4"),"Task",SToD("20080105"),SToD("20080109"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
863
|
Can I use ebn files to display the selected dates
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:MarkTodayColor := var_Chart:BackColor
var_Chart:LevelCount := 2
var_Chart:MarkSelectDateColor := 0x1000000
var_Chart:SelectLevel := 1
var_Chart:[SelectDate,SToD("20080103")] := true
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20080102"),SToD("20080106"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20080103"),SToD("20080107"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20080104"),SToD("20080108"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
862
|
How can I change the color for selected dates to be solid
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:MarkTodayColor := var_Chart:BackColor
var_Chart:LevelCount := 2
var_Chart:MarkSelectDateColor := 0x7fff0000
var_Chart:SelectLevel := 1
var_Chart:[SelectDate,SToD("20080115")] := true
var_Chart:[SelectDate,SToD("20080116")] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
861
|
How can I disable selecting dates when I click the chart's header
oDCOCX_Exontrol1:Chart:AllowSelectDate := exNoSelectDate
|
|
860
|
Is there any option to specify which dates can be magnified or resized
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:AllowInsideZoom := true
var_Chart:ShowNonworkingDates := true
var_Chart:CondInsideZoom := "not(weekday(value) = 0 or weekday(value) = 6)"
oDCOCX_Exontrol1:EndUpdate()
|
|
859
|
How can I change the width for a specified date time unit
local var_Chart as IChart
local var_InsideZoom as IInsideZoom
local var_InsideZooms as IInsideZooms
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:AllowInsideZoom := true
var_Chart:AllowResizeInsideZoom := false
var_Chart:InsideZoomOnDblClick := false
var_InsideZooms := var_Chart:InsideZooms
var_InsideZoom := var_InsideZooms:Add(SToD("20080104"))
var_InsideZoom:Width := 32
var_InsideZoom:AllowInsideFormat := false
oDCOCX_Exontrol1:EndUpdate()
|
|
858
|
How can I disable the control's splitter so the user can't resize the list area
oDCOCX_Exontrol1:OnResizeControl := exDisableSplitter | exResizeChart
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 60
|
|
857
|
How can I disable the control's splitter so the user can't resize the chart area
oDCOCX_Exontrol1:OnResizeControl := exDisableSplitter
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 60
|
|
856
|
How can I change the label for a specified unit
local var_Chart as IChart
local var_InsideZooms as IInsideZooms
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:AllowInsideZoom := true
var_Chart:AllowResizeInsideZoom := false
var_Chart:InsideZoomOnDblClick := false
var_Chart:DefaultInsideZoomFormat:OwnerLabel := "<b><%d%></b> <%d2%>"
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:SplitBaseLevel := false
var_InsideZooms:DefaultWidth := 32
var_InsideZooms:Add(SToD("20080104")):AllowInsideFormat := false
oDCOCX_Exontrol1:EndUpdate()
|
|
855
|
How can I bold the inside units
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:AllowInsideZoom := true
var_Chart:AllowResizeInsideZoom := false
var_Chart:InsideZoomOnDblClick := false
var_Chart:DefaultInsideZoomFormat:InsideLabel := "<b><%hh%></b>"
var_Chart:InsideZooms:Add(SToD("20080104"))
oDCOCX_Exontrol1:EndUpdate()
|
|
854
|
How can I change the scale unit when doing inside zoom ( the chart displays weeks, and we want week days )
local var_Chart as IChart
local var_InsideZoomFormat as IInsideZoomFormat
local var_InsideZooms as IInsideZooms
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:ShowNonworkingDates := false
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%mmmm%>"
var_Level:Unit := exMonth
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%ww%>"
var_Level1:Unit := exWeek
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:AllowInsideZoom := true
var_InsideZoomFormat := var_Chart:DefaultInsideZoomFormat
var_InsideZoomFormat:OwnerLabel := "<font ;7><%mmm%> Week: <%ww%>"
var_InsideZoomFormat:InsideLabel := "<font ;7><b><%d1%></b>"
var_InsideZoomFormat:InsideUnit := exDay
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:SplitBaseLevel := false
var_InsideZooms:Add(SToD("20080203"))
oDCOCX_Exontrol1:EndUpdate()
|
|
853
|
How can I zoom or magnify the selected date to display the hours, from 8 to 8
local var_Chart as IChart
local var_InsideZoomFormat as IInsideZoomFormat
local var_InsideZooms as IInsideZooms
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:AllowInsideZoom := true
var_InsideZoomFormat := var_Chart:DefaultInsideZoomFormat
var_InsideZoomFormat:InsideLabel := "H: <b><%hh%></b>"
var_InsideZoomFormat:InsideUnit := exHour
var_InsideZoomFormat:InsideCount := 8
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:Add(SToD("20080104"))
oDCOCX_Exontrol1:EndUpdate()
|
|
852
|
How can I zoom or magnify the selected date to display the hours
local var_Chart as IChart
local var_InsideZooms as IInsideZooms
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:AllowInsideZoom := true
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:Add(SToD("20080104"))
oDCOCX_Exontrol1:EndUpdate()
|
|
851
|
How can I change the foreground color for a time unit
local var_Chart as IChart
local var_InsideZooms as IInsideZooms
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:AllowInsideZoom := true
var_Chart:AllowResizeInsideZoom := false
var_Chart:InsideZoomOnDblClick := false
var_Chart:DefaultInsideZoomFormat:ForeColor := RGB(255,0,0)
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:SplitBaseLevel := false
var_InsideZooms:DefaultWidth := 18
var_InsideZooms:Add(SToD("20080104")):AllowInsideFormat := false
oDCOCX_Exontrol1:EndUpdate()
|
|
850
|
How can I change the background color for a time unit, in the chart area
local var_Chart as IChart
local var_InsideZooms as IInsideZooms
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:AllowInsideZoom := true
var_Chart:AllowResizeInsideZoom := false
var_Chart:InsideZoomOnDblClick := false
var_Chart:DefaultInsideZoomFormat:BackColorChart := RGB(255,0,0)
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:SplitBaseLevel := false
var_InsideZooms:DefaultWidth := 18
var_InsideZooms:Add(SToD("20080104")):AllowInsideFormat := false
oDCOCX_Exontrol1:EndUpdate()
|
|
849
|
How can I change the background color for a time unit, using EBN files
local var_Chart as IChart
local var_InsideZooms as IInsideZooms
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:AllowInsideZoom := true
var_Chart:AllowResizeInsideZoom := false
var_Chart:InsideZoomOnDblClick := false
var_Chart:DefaultInsideZoomFormat:BackColor := 0x1000000
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:SplitBaseLevel := false
var_InsideZooms:DefaultWidth := 18
var_InsideZooms:Add(SToD("20080104")):AllowInsideFormat := false
oDCOCX_Exontrol1:EndUpdate()
|
|
848
|
How can I change the background color for a time unit
local var_Chart as IChart
local var_InsideZooms as IInsideZooms
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:AllowInsideZoom := true
var_Chart:AllowResizeInsideZoom := false
var_Chart:InsideZoomOnDblClick := false
var_Chart:DefaultInsideZoomFormat:BackColor := RGB(255,0,0)
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:SplitBaseLevel := false
var_InsideZooms:DefaultWidth := 18
var_InsideZooms:Add(SToD("20080104")):AllowInsideFormat := false
oDCOCX_Exontrol1:EndUpdate()
|
|
847
|
How can I display the column using currency format and enlarge the font for certain values
local var_Column as IColumn
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}
var_Column:[Def,exCellValueFormat] := 1
var_Column:FormatColumn := "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
var_Items:AddItem("9.94")
var_Items:AddItem("11.94")
var_Items:AddItem("1000")
|
|
846
|
How can I highlight only parts of the cells
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("")}
var_Column:[Def,exCellValueFormat] := 1
var_Column:FormatColumn := "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
845
|
How can I get the number of occurrences of a specified string in the cell
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("occurrences")}
var_Column:ComputedField := "lower(%0) count 'o'"
var_Column:FormatColumn := "'contains ' + value + ' of \'o\' chars'"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1 oooof the root")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
844
|
How can I display dates in my format
local var_Column as IColumn
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
var_Column:[Def,exCellValueFormat] := 1
var_Column:FormatColumn := "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0) +')'"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010121"))
var_Items:AddItem(SToD("20020222"))
var_Items:AddItem(SToD("20030313"))
var_Items:AddItem(SToD("20040424"))
|
|
843
|
How can I display dates in short format
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:FormatColumn := "shortdate(value)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101"))
var_Items:AddItem(SToD("20020202"))
var_Items:AddItem(SToD("20030303"))
var_Items:AddItem(SToD("20040404"))
|
|
842
|
How can I display dates in long format
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:FormatColumn := "longdate(value)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101"))
var_Items:AddItem(SToD("20020202"))
var_Items:AddItem(SToD("20030303"))
var_Items:AddItem(SToD("20040404"))
|
|
841
|
How can I display only the right part of the cell
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Right")}
var_Column:ComputedField := "%0 right 2"
var_Column:FormatColumn := "'" + CHR(34) + "' + value + '" + CHR(34) + "'"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"SChild 3")
var_Items:[ExpandItem,h] := true
|
|
840
|
How can I display only the left part of the cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("")
IColumn{oDCOCX_Exontrol1:Columns:Add("Left")}:ComputedField := "%0 left 2"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"SChild 3")
var_Items:[ExpandItem,h] := true
|
|
839
|
How can I display true or false instead 0 and -1
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Boolean")}:FormatColumn := "value != 0 ? 'true' : 'false'"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(true)
var_Items:AddItem(false)
var_Items:AddItem(true)
var_Items:AddItem(0)
var_Items:AddItem(1)
|
|
838
|
Is there any option to print the columns section on each page
local var_Print as IExPrint
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010205"),SToD("20010207"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkStartPos] := 0
oDCOCX_Exontrol1:EndUpdate()
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:Options := "ColumnsOnEveryPage=1"
var_Print:PrintExt := oDCOCX_Exontrol1
var_Print:Preview()
|
|
837
|
How do I print the control's content
local var_Print as IExPrint
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkStartPos] := 0
oDCOCX_Exontrol1:EndUpdate()
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:PrintExt := oDCOCX_Exontrol1
var_Print:Preview()
|
|
836
|
How can I display icons or images instead numbers
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Icons")}
var_Column:[Def,exCellValueFormat] := 1
var_Column:FormatColumn := "'The cell displays the icon <img>'+value+'</img> instead ' + value"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(1)
var_Items:AddItem(2)
var_Items:AddItem(3)
|
|
835
|
How can I display the column using currency
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}:FormatColumn := "currency(dbl(value))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
var_Items:AddItem("0")
var_Items:AddItem(5)
var_Items:AddItem("10000.99")
|
|
834
|
How can I display the currency only for not empty cells
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}:ComputedField := "len(%0) ? currency(dbl(%0)) : ''"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
var_Items:AddItem("0")
var_Items:[ItemBackColor,var_Items:AddItem(nil)] := RGB(255,128,128)
var_Items:AddItem("10000.99")
|
|
833
|
Is there a function to display the number of days between two date including the number of hours
local var_Items as IItems
local h as USUAL
IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}:Width := 32
oDCOCX_Exontrol1:Columns:Add("End")
IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}:ComputedField := "((1:=int(0:= (date(%1)-date(%0)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s) ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010111"))
var_Items:[CellValue,h,1] := SToD("20010114")
h := var_Items:AddItem(SToD("20020222 12:00:00"))
var_Items:[CellValue,h,1] := SToD("20020314 13:00:00")
h := var_Items:AddItem(SToD("20030313"))
var_Items:[CellValue,h,1] := SToD("20030411 11:00:00")
|
|
832
|
Is there a function to display the number of days between two date including the number of hours
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Start")
oDCOCX_Exontrol1:Columns:Add("End")
IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}:ComputedField := "" + CHR(34) + "D " + CHR(34) + " + int(date(%1)-date(%0)) + " + CHR(34) + " H " + CHR(34) + " + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010111"))
var_Items:[CellValue,h,1] := SToD("20010114 23:00:00")
h := var_Items:AddItem(SToD("20020222 12:00:00"))
var_Items:[CellValue,h,1] := SToD("20020314 13:00:00")
h := var_Items:AddItem(SToD("20030313"))
var_Items:[CellValue,h,1] := SToD("20030411 11:00:00")
|
|
831
|
How can I display the number of days between two dates
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Start")
oDCOCX_Exontrol1:Columns:Add("End")
IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}:ComputedField := "(date(%1)-date(%0)) + ' days'"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010111"))
var_Items:[CellValue,h,1] := SToD("20010114")
h := var_Items:AddItem(SToD("20020222"))
var_Items:[CellValue,h,1] := SToD("20020314")
h := var_Items:AddItem(SToD("20030313"))
var_Items:[CellValue,h,1] := SToD("20030411")
|
|
830
|
How can I get second part of the date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Second")}:ComputedField := "sec(date(%0))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:10:00"))
var_Items:AddItem(SToD("20020222 11:01:22"))
var_Items:AddItem(SToD("20030313 12:23:01"))
var_Items:AddItem(SToD("20040414 13:11:59"))
|
|
829
|
How can I get minute part of the date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Minute")}:ComputedField := "min(date(%0))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:10:00"))
var_Items:AddItem(SToD("20020222 11:01:00"))
var_Items:AddItem(SToD("20030313 12:23:00"))
var_Items:AddItem(SToD("20040414 13:11:00"))
|
|
828
|
How can I check the hour part only so I know it was afternoon
local var_Items as IItems
oDCOCX_Exontrol1:ConditionalFormats:Add("hour(%0)>=12",nil):Bold := true
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Hour")}:ComputedField := "hour(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|
|
827
|
What about a function to get the day in the week, or days since Sunday
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("WeekDay")}:ComputedField := "weekday(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|
|
826
|
Is there any function to get the day of the year or number of days since January 1st
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Day since January 1st")}:ComputedField := "yearday(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|
|
825
|
How can I display only the day of the date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Day")}:ComputedField := "day(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|
|
824
|
How can I display only the month of the date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Month")}:ComputedField := "month(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101 10:00:00"))
var_Items:AddItem(SToD("20020202 11:00:00"))
var_Items:AddItem(SToD("20030303 12:00:00"))
var_Items:AddItem(SToD("20040404 13:00:00"))
|
|
823
|
How can I get only the year part from a date expression
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Year")}:ComputedField := "year(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101 10:00:00"))
var_Items:AddItem(SToD("20020202 11:00:00"))
var_Items:AddItem(SToD("20030303 12:00:00"))
var_Items:AddItem(SToD("20040404 13:00:00"))
|
|
822
|
Can I convert the expression to date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:ComputedField := "date(dbl(%0))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("30000.99")
var_Items:AddItem("3561.23")
var_Items:AddItem("1232.34")
|
|
821
|
Can I convert the expression to a number, double or float
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Number + 2")}:ComputedField := "dbl(%0)+2"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
820
|
How can I display dates in long format
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("LongFormat")}:ComputedField := "longdate(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101 10:00:00"))
var_Items:AddItem(SToD("20020202 11:00:00"))
var_Items:AddItem(SToD("20030303 12:00:00"))
var_Items:AddItem(SToD("20040404 13:00:00"))
|
|
819
|
How can I display dates in short format
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("ShortFormat")}:ComputedField := "shortdate(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101 10:00:00"))
var_Items:AddItem(SToD("20020202 11:00:00"))
var_Items:AddItem(SToD("20030303 12:00:00"))
var_Items:AddItem(SToD("20040404 13:00:00"))
|
|
818
|
How can I display the time only of a date expression
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Time")}:ComputedField := "'time is:' + time(date(%0))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101 10:00:00"))
var_Items:AddItem(SToD("20020202 11:00:00"))
var_Items:AddItem(SToD("20030303 12:00:00"))
var_Items:AddItem(SToD("20040404 13:00:00"))
|
|
817
|
Is there any function to display currencies, or money formatted as in the control panel
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}:ComputedField := "currency(dbl(%0))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(1.23)
var_Items:AddItem(2.34)
var_Items:AddItem(10000.99)
|
|
816
|
How can I convert the expression to a string so I can look into the date string expression for month's name
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Str")}:ComputedField := "str(%0) + ' AA'"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
815
|
Can I display the absolute value or positive part of the number
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Abs")}:ComputedField := "abs(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
814
|
Is there any function to get largest number with no fraction part that is not greater than the value
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Floor")}:ComputedField := "floor(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
813
|
Is there any function to round the values base on the .5 value
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Round")}:ComputedField := "round(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
812
|
How can I get or display the integer part of the cell
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Int")}:ComputedField := "int(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
811
|
How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
local var_Items as IItems
local h as USUAL
IColumn{oDCOCX_Exontrol1:Columns:Add("")}:FormatColumn := "proper(%0)"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("root")
var_Items:InsertItem(h,nil,"child child")
var_Items:InsertItem(h,nil,"child child")
var_Items:InsertItem(h,nil,"child child")
var_Items:[ExpandItem,h] := true
|
|
810
|
Is there any option to display cells in uppercase
local var_Items as IItems
local h as USUAL
IColumn{oDCOCX_Exontrol1:Columns:Add("")}:FormatColumn := "upper(%0)"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Chld 3")
var_Items:[ExpandItem,h] := true
|
|
809
|
Is there any option to display cells in lowercase
local var_Items as IItems
local h as USUAL
IColumn{oDCOCX_Exontrol1:Columns:Add("")}:FormatColumn := "lower(%0)"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Chld 3")
var_Items:[ExpandItem,h] := true
|
|
808
|
How can I mark the cells that has a specified type, ie strings only
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:ConditionalFormats:Add("type(%0) = 8",nil):ForeColor := RGB(255,0,0)
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,2)
var_Items:InsertItem(h,nil,"Chld 3")
var_Items:[ExpandItem,h] := true
|
|
807
|
How can I bold the items that contains data or those who displays empty strings
local var_Items as IItems
local h,hC as USUAL
oDCOCX_Exontrol1:ConditionalFormats:Add("not len(%1)=0",nil):Bold := true
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
hC := var_Items:InsertItem(h,nil,"Child 2")
var_Items:[CellValue,hC,1] := "1"
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
806
|
Can I change the background color for items or cells that contains a specified string
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:ConditionalFormats:Add("%0 contains 'hi'",nil):BackColor := RGB(255,0,0)
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Chld 3")
var_Items:[ExpandItem,h] := true
|
|
805
|
Is there any option to change the fore color for cells or items that ends with a specified string
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:ConditionalFormats:Add("%0 endwith '22'",nil):ForeColor := RGB(255,0,0)
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 1.22")
var_Items:InsertItem(h,nil,"Child 2.22")
var_Items:[ExpandItem,h] := true
|
|
804
|
How can I highlight the cells or items that starts with a specified string
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:ConditionalFormats:Add("%0 startwith 'C'",nil):Underline := true
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"SChild 3")
var_Items:[ExpandItem,h] := true
|
|
803
|
How can I change the background color or the visual appearance using ebn for a particular column
local var_Columns as IColumns
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exHeaderBackColor] := 16777216
IColumn{var_Columns:Add("Column 3")}:[Def,exHeaderBackColor] := 16777471
var_Columns:Add("Column 4")
|
|
802
|
How can I change the foreground color for a particular column
local var_Columns as IColumns
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exHeaderForeColor] := 8439039
var_Columns:Add("Column 3")
|
|
801
|
How can I change the background color for a particular column
local var_Columns as IColumns
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exHeaderBackColor] := 8439039
var_Columns:Add("Column 3")
|